home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 November / Ahoy_Magazine_86-11_1986_Double_L.d64 / Datareader 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  885b  |  34 lines
  1. 0 print"[147][144]":poke53280,6:poke53281,1
  2. 1 print"datareader....64 version":print:print
  3. 2 rem         datareader - 64
  4. 3 rem        rupert report #35
  5. 4 rem
  6. 5 rem      *** c-64  version ***
  7. 6 rem
  8. 7 rem ==================================
  9. 200 f$="xx"
  10. 210 open15,8,15 : open8,8,8,f$
  11. 220 input#15,ds,ds$ :dd=ds:if dd<>0 then goto 2000
  12. 230 rem ********************************
  13. 240 rem      this loop reads data
  14. 250 rem       and manipulates it
  15. 260 rem --------------------------------
  16. 270 rem
  17. 280 :n=n+1 : d0=d
  18. 290 :input#8,d
  19. 300 :ss=st:if ss<>64 and ss<>0 then 2000
  20. 310 :print n,d,d-d0
  21. 320 if ss<>64 then 280
  22. 330 rem --------------------------------
  23. 340 rem         end of loop
  24. 350 rem ********************************
  25. 360 close8 : close15
  26. 370 end
  27. 2000 rem     --- error handler ---
  28. 2010 close8 :close15 :if dd=62 then 2030
  29. 2020 print :print ds$ :print "i/o status error # ";ss : end
  30. 2030 print "file "f$" does not exist." : f$=""
  31. 2040 input"what filename do you want (return to quit)";f$
  32. 2050 if f$="" then end
  33. 2060 goto 210
  34.